home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / BIOSATTR.ASM < prev    next >
Assembly Source File  |  1990-10-22  |  867b  |  31 lines
  1. ; BIOSATTR.ASM
  2. ;
  3. ; by Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;
  7. ;-------------------------------------------
  8. ; Notes...: Get screen attributes from current cursor position
  9. ; Syntax..: <memvar> = BIOSATTR()
  10. ; Returns.: Screen attributes as <expN>
  11. ;------------------------------------------
  12.  
  13.          INCLUDE  EXTENDA.INC
  14.  
  15.          CLpublic  <BIOSATTR>
  16.  
  17.          CLfunc int BIOSATTR
  18.  
  19.          CLcode
  20.  
  21.          MOV      AH,8H               ; service to read character/attribute
  22.          XOR      BX,BX               ; video page
  23.          INT      10H                 ; read character/attribute at cursor
  24.          MOV      AL,AH               ; Place attribute in AL
  25.          XOR      AH,AH               ; Clear AH
  26.          CLret    AX                  ; Return attribute in AX
  27.  
  28.          END
  29.  
  30.  
  31.